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É com imenso prazer que vos 
apresentamos o imn.º 13 do 
CLUBE Z80o 


Existem já 12 meses de trabalho atrás deste jornal mensal 
que estabelece o contacto entre os utilizadores de microcomputadores, 
em especial da SINCLAIR/TIMEX 


Tal como nós, outros compradores e utilizadores dos “micros” tem procurado 
er ideias sobre programas ou conhecem a utilidade de tal ou tal rotina 
CLUBE Zso é um jornal de utilizadores de microcomputadores, 
no qual se publicam programas, exemplos de utilização, artigos pedagógicos, ensaios e ideias... 


Possuímos como meta fixa O 
ajudar sempre o utilizador de microcomputadores 


No caso específico dos distribuidores de microcomputadores, a divulgação deste jornal 
(que não possui publicidade nem objectivos lucrativos) 


pode ajudar a criar um melhor suporte para os seus clientes 


Podemos publicar pequenos anúncios (gratuitos) 
sempre que sejam de interesse para os associados 


Igualmente, todo o Software ou livros que tenhamos disponíveis 
e são colocados à disposição dos associados, nas diversas condições que vigorarem na altura 


Esperamos a vossa colaboração, 
a vossa divulgação, a vossa associação a este esforço 
que terá de ser efectivamente existente e actuante 


O CLUBE Zoo e o seu jornal | 


dependem de todos vós 





Os Coordenadores 


Alexandre Sousa 
Joaquim Magalhães 
Maria Irene 
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CONTINUAMOS NESTE NÚMERO, A ESCREVER SOBRE ESTE OPERADOR LÓGICO. REGRA GERAL, 
ESTE OPERADOR FORMA UMA CONJUNÇÃO LÓGICA ENTRE DUAS EXPRESSÕES QUE ENVOLVEM 
OPERADORES CONDICIONAIS. 


Se ambas as expressões são verdadeiras, a conjunção é «verdadeira». 

Se uma ou ambas são «falsas» a cunjunção é «falsa». 

O valor numérico de «verdadeiro» é = 1. CR) 
O valor numérico de «falso» é = 0. 

Todos os valores diferentes de zero são «verdadeiros». 


SERÁ CONVENIENTE DISTINGUIR ENTRE: 
VALOR LÓGICO e VALOR NUMÉRICO 


VALOR LÓGICO é o valor de uma expressão (usando este critério): 
valor (diferente de zero) da expressão = «verdadeiro» 
valor (nulo) da expressão = «falso» 


QUANDO UMA EXPRESSÃO É AVALIADA LOGICAMENTE, SERÁ ATRIBUÍDO UM DE DOIS VALORES 
NUMÉRICOS: 


VERDADEIRO 
TE o 0 
EXEMPLO: E 


100 IF (A = 10) AND (B<>3) THEN GOTO 60 
200 PRINT (A AND B) 


SE A = 15 e B=6 ... então A = verdadeiro B = verdadeiro. 
ENTÃO a relação (A AND B) é verdadeira (logicamente) e o número 15 será impresso. 


SE Rs TO («verdadeiro») e B = O (zero é um valor «lógico» falso). 

ENTAO a relação (A AND B) é falsa e será impresso o valor O. 
A só é falso se = 0 Tabela de verdade para AND 
B só é falso se = 0 


A B A AND B 
verd verd verd 
verd falso falso 
falso verd falso 
falso | falso ; falso 


(Continua no próximo número) 
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a E Ma Rs 


Autor: Fernando D'Almeida Preces 
SCROLL (Norte-Sul) + imagem fixa 


Extraindo do programa anterior, que continha os 4 
movimentos SCROLL, a parte que nos interessa para 
este ensaio, utilize o código máquina da REM 3, apa- 
gando as 2 primeiras REMs. Na 3 apague todos os 
caracteres dispensáveis, pois inicialmente ela conti- 
nha 30 caracteres reservados dos quais só serão 
necessários para este erisaio, 19 instruções máquina. 

Modifique a linha 180 para: 


180 LET B= USR 16514 
Acrescente: 


185 PRINT AT 21, 14; "Ms" 


NOTA: A nave é feita com os caracteres gráficos códigos 6. 128 
e 134. 


Depois RUN 150... 


A nave vai aparecer fixa no ecran, enquanto que os 
caracteres (*) se movem de cima para baixo. 

Uma instrução em Basic com uma única linha de 
caracteres é bastante rápida de modo que o movi- 
mento lhes vais parecer normal. Tudo se complica, 
entretanto, se quisermos (em Basic) aumentar a figu 
ra, ocupando mais que uma linha, pois além de uma 
grande lentidão, a imagem aparece-nos em fatias e 
sobrepondo por causa do movimento SCROLL, as 
primeiras sobre as ultimas linhas. 

Vamos a um exemplo, para o demonstrar. 

e Escreva: 


184 PRINT AT 19, 15; “A” 
185 PRINT AT 20, 14; "MM" 
186 PRINT AT 21, 15; "V” 


e outra vez RUN 150... 


Como pode verificar, a imagem aparece muito de- 
formada e o SCROLL é lento. 


A solução é outra vez o código maquina. 
Antes de escrevermos a rotina, vamos fazer um 


pequeno resumo teórico sobre o seu funcionamento, 
considerando para o primeiro caso apenas a substitui- 
ção da linha Basic 185, o que facilitará a compreen- 
são do leitor, pois na rotina completa há mais 
complexidade. 

Um computador envia normalmente para a TV, 25 
imagens por segundo e vai cumprindo as instruções 
na linguagem para o qual foi programado, nos interva- 
los dessas projecções. Se umas tantas instruções, por 
exemplo, er Basic, demorarem 1 ou 2 segundos a 


D À LINGUAGEM MÁQUINA 





(Continuação) 
ser executadas então os nossos olhos podem distin- 
guir perfeitamente que os caracteres mandados impri- 
mir não são enviados para o ecran todos de uma vez. 

Ora em código máquina uma pequena rotina pode 
ser totalmente executada em + 500 microssegundos 
mas mesmo que seja maior e que tenha de ser repar- 
tida em 2 ou 3 sequências de imagem ainda assim os 
nossos olhos estão longe de se aperceberem dessas 
interrupções e afirmamos normalmente que é de exe- 
cução instantânea 

Cada imagem a ser formada pelo ZX, é momenta- 
neamente armazenada numa zona da RAM chamada 
FICHEIRO DE PROJECÇÃO, que infelizmente não 
tem um parque de estacionamento certo. 

A razão desta - anomalia, deve-se ao facto do 
FICHEIRO ser armazenado numa zona: imediata- 
mente a seguir à parte da memória reservada à pro- 
gramação em Basic que, como todos já sabemos, 
depende das dimensões do programa. 

Devido a esse vai e vem contínuo da zona ocupada 
pelo FICHEIRO, o seu primeiro endereço tem de ser 
memorizado pelo computador que reserva uma das 
variáveis do sistem> a que se dá o nome de D. 
FILE para receber essa anotação 

Cada imagem é formada por blocos (entraremos 
mais tarde em pormenores) de 24 linhas por 32 colu 
nas. Cada coluna é ainda seguida pelo código 118 
(NEY LINE) 

O FICHEIRO DE PROJECCAO é, pois. formado por 
24 * 33 = 792 localizações de memória 

Faça a seguinte experiência, escrevendo: 

1000 LET D FILE = PEEK 16 396 + 
256 *PEEK 16 397 

1010 PRINT AT 88; D FILE =": 
D FILE 


1020 POKE D FILE + 411, 128 
e GOTO 1000 

Vera aparecer a localizaçao anotada na variável D 
FILE e um quadrado preto no centro do ecran, 

Em seguida substitua na linha 1020 o numero 411, 
por outro qualquer que esteja compreendido entre 1 e 
726, mas tenha em atenção, que os números 33, 66, 
99, 132, etc., têm já pelo computador o código 118 
(NEW LINE) e se os alterar, descontrola completa- 
mente O FICHEIRO que por sua vez altera toda a 
zona do programa, 

As restantes instruções da nossa rotina são prepa- 
ratórias para o trabalho duma instrução LDIR (já 
nossa conhecida) que vai enviar para o ecran o nú- 
mero de caracteres que formarão a imagem fixa 

“(Continua no próximo número) 
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1K 
JOGO 1 — BARREIRA 


Neste jogo, você deverá movimentar um «+» no ecran, usando as teclas do cursor para desenhar uma 
barreira à volta dos «bugs» que tem de caçar. 

Se 0 «+» chocar com um «bug», você é morto; mas se a Rainha «bug» (representada por Graphic A) se 
dirigir para a barreira, ela morrerá e você ganha o jogo. 

Atenção! A Rainha «bug» move-se invariavelmente, podendo «saltar» para outra parte do ecran. 

Terminado o jogo, accione qualquer tecla para limpar o ecran e começar novo jogo. 


1 LET K=vAL "9" 

2 LET Y=vAL “iZ" 

3 LET A=< RENDAS 5 

4 LET B=<RHDES )+4 

Ss PRINT AT X,T:"RV;AT A.B:raPiAT os, tio+o 

6 LET X=H+< INKETS="E" -cC IHEETS="0"0 e 
7? LET W=7+< INKETS="S" = INEETé="5" 

8 PRINT AT sr: 

9 IF PEEK (PEEK 163298+2564PEEK 163552 )0=00DE “Jº THEM GOTU 45 

10 PRINT AT A,B;"2” 

15 LET A=A+cRNDEZ 2-1). GS ] 


20 LET E=B+cRNDESD-1.5 

25 IF RND>.9 THEN GOTO 3 

39 PRINT AT A,E; 

as IF PEEK cCPEEK 1EZ98+256CHPEEK 162922=CODE “+” THEM GOTO 55 
49 GOTO 5 

45 PRINT AT 4,2; "TU FOSTE APANHADO POR UM ““BUG"” 

Sa GOTO 75 


“Ss FOR H=i258 TO 182 á 
ga PRINT AT A, E:CHES | 
bã NEXT HH 


> PRINT “A RAINHA BUG FOI ELETROCUTADA” 
rã PAUSE 4SES 


| Bo CLEAR 
So Ls RN 
98 RH ” 


| JOGO 2 — BATALHA NAVAL 


S — Submarinos (2). 
C — Cruzadores (2). Cada cruzador ocupa 2 quadrados. 
B — Porta-aviões (1). Ocupa 3 quadrados. 


Como fazer o jogo: 

P. ex.: Jogador 1 — «S1A S9H C4B C5B C7C C7D B2E B2F B2G» (coloca um submarino na posição 1A e 
outro em 9H, etc.). 

O 2.º jogador tenta localizar a posição dos navios fazendo, por exemplo, «1B». Se não acertar aparece um 
«+» nessa posição. Se acertar, aparece no ecran uma letra que indica a posição atingida. 

Depois de dar entrada do programa, dê entrada das variáveis sem escrever o número de linha. Depois faça 
GOTO 15. Não use RUN (limparia as variáveis). 


LET A=1 LET G= 7 
LET B=2 LET. H= 9 
LET €=3 LET | = 10 
LET D=4 LET J=20 
LET E =5 LET K=J+G 
LET F=6 LET L=H+K 
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Autor: 


OCO RTCAGDIGASTARNDECMWNDO NM 


Ls 
PRINT º  HECDEFGHI” 
FOR Z=A TO H 


PRINT AT Z,.A;Z 

HEAT Z 

CIMO ABES 

INPUT ASCA TO Ko 

IHPUT B& 

IF B$g="2" THEN GOTO T+ 

LET a=vAL EBAH 

LET Y=CUDE ESC E) 

PRINT AT &A,T=L; "+" 

IF x=vAL ASCE> AMO F=D0DEÊ A$cCoo: THEM PRINT AT s.T-L;ASÇÃ? 
IF “=vAL ASÇEÊS AND T=CODE ASF > THEH FPEINT AT a,T-L;AEÇDO 
IF “=vAL AECC+E? AMD Y=CODE AScH> THEM PRINT AT A.T-L:;ASCGS 
IF “=vAL ASCI+HA? AMO F=CODE ASCI+E> THEH PRINT AT soT-L;ABC II, 


IF a=vAL ASCI+D? AND T=CODE AgeI+E? THEH PRINT AT A, T-L; ABC I++» 
IF K=vAL ABCI+G> AND Y=CODE ASCCXF > THEM PRINT AT ger; ABC I+F o 
IF A=vAL AgoI? AND T=CODE ASCIJ+A? THEM PRINT AT a, t-L;AECH+ALo 
IF g=vAL AECI+AC) AND T=T0DE AGCI+D) THEM FRIHNT AT a, T-L;ABCIJ+E) 
IF x=vAL ASCI+F> AND Y=CODE ASCK> THEN PRINT AT A, T-L; ABC IJ+E) 


GOTO J+1 , 
JOGO 3 — NUMERO SECRETO 


FERNANDO PRECES 
Sacavém 


REM PROGRAMA ELABORADO POR ALMEICLA PRECES, EM arcdrae. 
REM “a” 

PRINT sig” HUMERO SECRETO" 

PRIHT ,, "JM HUMERO RO ACASO SERA GERADO” 
PRINT ,;“ENTRE O E 30.8 

PRINT .."vOCE CARA UM HUMERO PALPITE” 
PERIHT ,."GLUE SERA O LIMITE SUPERIOR QI" 
PRINT “TINFERTIOR HO gUuADRALO PPRESENTADO, 
PRINT Ma SE HÃO ACERTOU VOLTE H TEHTRE. 
PAUSE & 

Cs 

LET Ai=g 

LET E=at 

LET C=INT Cc EHNDESO 2+1 

FOR D=1 TO 2H 

PRINT AT 6,6; "NUMERO SECRETO" 


“o 


“o 


PRINT AT 10,4;" ENTRE “EA: E c":E 
IHFUT E 
PRINT AT 15,6; "PALPITE “Colo gar ER 


IF E=C THEM GUTO G5 

IF EC THEH LET B=E 

IF E<C THEN LET A=E 

HEXT D 

IF Doi THEH GOTO ta 

PRINT AT AF,D:PACERETOULc.c.HA JOGADA ";D 
FRAUSE EA . 


GOTO 3 
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RESOLUÇÃO DE EQUAÇÕES 


Suponha uma equação da forma f(x) = O, como por 
exemplo: 
yv=f)=2+32— 10x—5 


As raízes desta equação são os valores de x para 
os quais y = O. Pelo gráfico da figura 1 pode verificar 
que a curva corta o eixo do x em três pontos: o 
primeiro entre x=— 5 e x=— 4; o segundo entre 
x=— 1 ex=0 eo terceiro entre x=2 e x=3. 
Pode obter estas mesmas informações fazendo uma 
tabela de valores para o intervalo (— 10,10) — fig. 2. 
Onde y troca de sinal (mais por menos ou menos por 
mais) é o intervalo no qual pode encontrar uma raiz. 
A tabela apresenta então os três intervalos: (— 5, 
— 4), (— 1,0) e (2, 3) que necessitam ser estudados 
mais detalhadamente. 

Pelo método de bissecção cada intervalo é dividido 
em duas partes iguais, decidindo a parte onde se 
encontra a raiz, a qual é novamente dividida, 
repetindo-se o processo. 


e Quanto maior for o intervalo, mais probabilidades 
tem, de encontrar todas as raízes da equação. 


e Não será possível encontrar as raízes para as 
equações em que o gráfico não corta o eixo do x: 
por exemplo — y =x2+ 1 (fig. 3). 


Como usar o programa 


Para melhor explicar a utilização do programa va- 
mos formar a equação xº + 3x — 10x—-5 como 
exemplo. 


OPÇÃO 1 — Dê entrada da equação do seguinte 

modo: 
xex*x+3*x*x— 10 *x—S 

Na OPÇÃO 2 escolha o intervalo (— 10, 10), se- 
guindo na OPÇÃO 3 os vinte pontos do intervalo 
como é lógico. 

A OPÇÃO 4 apresentará a tabela de valores tal 
como na fig. 2. Pode então verificar os intervalos 
onde se dá a troca de sinal. Regresse às opções e na 
2 dê entrada de um dos intervalos — ex.: (— 5, — 4). 
Propomos o erro 0.00001 (OPÇÃO 5) e pela OPÇÃO 
6 verifique a raiz no intervalo escolhido (— 
4.84946 ...). 

Pode de novo regressar à OPÇÃO 2 e procurar as 
raízes nos outros 2 intervalos. 

Note que a equação utilizada como exemplo só 
poderia ter 3 raízes. 

São possíveis também equações trigonométricas 
tais como: sen(x)+tan(x) -3x]+4x. 

A OPÇÃO 7 fará a listagem de todos os parâmetros 
utilizados e finalmente a OPÇÃO 8 pára o programa. 


dica! É) | ZX e: 


y=x3+ 3x2 — 10x —5 


- 113 Fá 1=-6OS 
3 Fc 4)7=-481 
[a Fr á=-g4s 
” FcmMxI=-131 
Ei FigoI=-SS 
a Fim =—a 
Fimoi=1A 
Fixs=2a 
F<Mo=1A 
Frmo=] 
Fls j=—a 
Fc s=-11 
Pós i=—-a 
Fcso=13 
FC A =6r 
Fcso=145 
Fra I=259 
Fcmi=415 
Frai=613 
FC Ao=87 7 
FcmH)2=1195 
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Fig.2 


Tabela de valores entre — 10e 10 de x +x «x + 3 +«x+«x— 10 «x 
— 5 
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RESOLUÇÃO DE EQUAÇÕES 


ZX81 


ZX COMPUTING AGO./SET. 83 


UR 
+p 
ot 


Po Ty 
qm 
O E 


LASE 
2000 
2818 
2029 
2030 
2048 
2658 
2068 
2876 
2080 
3200 
2918 
3620 
3026 
304 
4900 
4918 
4B20 
49320 
4949 
4050 
4269 
4070 
Ea 
Salm 
saza 
6930 
sas 
saso 
Ea6o 


SL 

REM CA,E) 

LET A=-1 

LET B=1 

LET A$="X" 

LET E=6, 681 

LET H=ltg 

LET “=t 

PRINT AT OB, IB "opcoes" 

PRINT AT 2.80;"1- EXPRESSÃO DE Fexo” 

PRINT AT 4,4;"2- INTERVALO PARA O QUAL DESEJA ENCONTEAR A RAIZ" 
PRIHT AT 7.y;"3- HUMERO DE PONTOS" 

PRINT AT 18,8;"4- THEELA DE VALORES DEFINIDA FELO INTERVALO CH. EB2" 
PRINT AT 13,8;"5- ERRO APROXIMADO" 

PRINT AT 158,40:"E- RAIZ HO INTERVALO CA. EB> PELO METODO DCE BISSECCAO" 
FRINT AT 18.4;"7- LISTAGEM DCE FARAMETEUS 

PRINT AT 20,0;"3= STOP" 

LET Z5=INKEY 

IF Z6="" OR CODE Z8<239 OR CODE 2Z$>3€ THEN GOTO soa 
LET Z=vAL Z& 

Aus 

GOSUE LAGE 

CLS 

GOTO 288 

PRINT AT 5,06;"EXPRESSAO DE FCXS" 

INPUT A$ 

PRINT AT Sa, "Fogo=",A6 

GOTO SA 

FRINT AT S.A; "ESPECIFIQUE O INTERVALO CAH=",E=T2" 
PRINT AT G,2:"H=" 

INPUT A 

PRINT AT 32,6;AR 

PRINT AT 10,2; "B=" 

INPUT E 

IF B<=A THEH GOTO 2056 

PRINT AT 14,6; E 

GOTO S888 

PRINT AT 5,84; "NUMERO DE PONTOS" 

INPUT NH 

IF H<zINTH OR Hi THEH GOTO Zalig 

PRINT AT &,B;"H=":H 

GOTO sa 

FOR Z“=A TO B STEP CE-RO2H ' 
PRINT "M=":X; TAB 15;"FCxo=";VAL AS 

IF PEEK 16442>4 THEN GOTO 494808 

PRINT "PRESS C PARA CONTINUAR" 

LET Z6=INKErS 

IF 26="" THEN GOTO 4040 

IF Z8<>"C" THEN GOTO 8990 

CLS 

LET Ai=A 
“LET B1=B 

LET a=A 

LET vVA=VAL AE 

LET ú=B 

LET vVBE=VAL Ag 

IF vA&vVB<a THEM GOTO GgaaA 
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2 THEE [et E eee 


Garra PRINT AT S,G; "HÃO EXISTEM ERIZES 
EvE TER SINAL DIFERENTE 


EBSA 
EBSA 
bla 
118 
Gizy 
6138 
Gisa 
6158 
Gl1EM 
Gl7m 
6130 
6128 
(pad (ão 
belt 
becB 
BZ 
"aaa 
"aim 
vaza 
“asa 
Ta4u 
"By 
s080 
29928 
aaa 
R 

2018 
9024 
28:30 
aB4 
agõa 


2068 
2078 
9080 





EM A 
GOTO aBay 

PRINT AT 2.6: "ESFPERE UM 
LET a=]A1+Bl 2-2 

LET ME=<BlI-AL 2% 

IF ME<E THEH GOTO EZI1B 
LET vVá=vAL AB 

LET STORE=A 

LET x=A1 

LET VA=vAL AS 

LET A=STORE 

IF vAtvVZi= THEM LET El 
IF HAHA 
GOTO Elgg 
PRINT AT 5, 
PRINT AT 7, 
GOTO 2866 
PRINT AT 
PRINT AT 
PRINT AT &, 
PRINT AT 18, 
PRINT AT 13,0; 
GOTO 2808 
STOP 

IF INKEET$:>"" THEN GOTO 
PRINT AT 19,0; "TECLA C- 


"O VALOR D 
"ERRO TAÃal 


O sy 


"A EXPRESS 
MECHI=": AS 
"0 INTERYH 
a: “O HUMERO 
"O ERRO MM 


o mA 
S MD 


OPLOES" 


LET Y5=INKEYTS 


IF w$="" THEN GOTO SOLO 


IF v$8<>"C" THEN RETURN 
REM 78 ESPACOS HA PROSI 
PRINT AT 19,0;" 


COP 
GOTO SBHB 
SAVE "ECArO 


NOVOS LIVROS 


THEN LET Al=, 


HO INTERVALO CPSL B:PoOMAT B.B;"FCx> D 


E B“ 


MOMENTO” 


“a 
coma tod 
= 

“4 


“a 
%, 
. 


E "is 
E 


H RAILS 
My E"; 


AO" 
' “E: H » hd 


“MH 
SOLLISAO 4 


Mo MD e Rr 
DÊ FOMNTOS E 
Rstrio FARA A 


GUALGUER TECLA PARA REGRESSA 


MA LIHHA 








e SPECTRUM GRAPHICS 
HAMPSHIRE NICK, DUCKWORTH, LONDON 
INICIAÇÃO ÀS TÉCNICAS DE PROGRAMAÇÃO NECESSÁRIAS AO TRAÇADO DE GRÁFICOS NUM SPECTRUM: 


Gráficos de alta resolução 
Gráficos «Plotting» 
Memória Vídeo 
Escalas e Variações 
Rotação e Movimento 
3 D Displays 
PREÇO: (Fotocópias) — 385$00 





e GAMES FOR YOUR ZX SPECTRUM 
SHAW PETER, INTERFACE/VIRGIN BOOKS, 1983 


MAIS DE 20 PROGRAMAS 


ENTRE OS QUAIS: 


«Excalibur against the enemy» 
«Ascot» 

«Touchdown on Mars» 
«Munchie Man» 


ESTE LIVRO CONTÉM AS INSTRUÇÕES NECESSÁRIAS À INTRODUÇÃO DOS PROGRAMAS NA MÁQUINA, INCLUINDO 1 DICIO- 
NÁRIO DE TERMOS DE INFORMÁTICA E AINDA 1 LISTA BIBLIOGRÁFICA SELECCIONADA. 


PREÇO: (Fotocópias) — 260800 
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e THE WORKING SPECTRUM, 
LAWRENCE DAVID, 


VOLUME 1, SUNSHINE BOOKS, LONDON 


Baseado numa colecção de programas sofisticados na área de finanças, cálculo, gráficos, armazenamento de dados, educação, etc. 
Cada programa é detalhadamente explicado, linha a linha, contendo subrotinas e módulos que, compreendidos, podem servir de base a 
outros programas que queira fazer. PREÇO: (Fotocópias) — 450$00 


e 40 BEST MACHINE CODE ROUTINES FOR THE ZX SPECTRUM 
HARDMAN JOHN E HEWSON ANDREW, HEWSON CONSULTANTS, GREAT BRITAIN, 1982 


— A estrutura interna do ZX Spectrum 
— A linguagem máquina do Zso - Byts, Bytes, endereços, Glossário de instruções em código máquina 
— Rotinas (SCROLL, DISPLAY...) 
PREÇO: (Fotocópias) — 310$00 


e LA PRATIQUE DU ZX SPECTRUM (2 VOLUMES) 
e BELLEFONDS, XAVIVER LINANT, P.S.l., FRANÇA, 1983 


Tomo |: 


— Aprofundamento do Basic 
— Iniciação à Linguagem Máquina 
— Tratamentos de cadeias e de quadros 
— Gráficos de alta resolução e utilização das funções matemáticas. 
— À cor, O som e a memória do SPECTRUM 
PREÇO: (Fotocópias) — 340$00 
Tomo ll: 


— Programação em Linguagem Máquina 
z PREÇO: (Fotocópias) — 340$00 


. e THE SPECTRUM HANDBOOK 
LANGDELL TIM, CENTURY PUBLISHING, LONDON, 1982 


— Iniciar c/ um ZX SPECTRUM: 
Como funciona, a cor e o som; 
Programação BASIC: gráficos, jogos, aplicações didáticas e científicas. 
— O aproveitamento máximo do Spectrum 
(e — Código Máquina. 
PREÇO: (Fotocópias) — 460$00 


e INICIATION A LA PROGRAMMATION PAR LE BASIC 
SCHMIT JACQUES, EYOROLLES, PARIS, 1982 


— Estrutura de um sistema informático 
— Princípios de funcionamento de um computador 
— Introdução ao BASIC 
— Noção de programa — Aplicações, exercícios 
— Cadeias de caracteres 
— Vectores, quadros, variáveis, rotinas, dados, instruções complementares ... 
— Utilização do PRINT e LPRINT com USING 
— Funções aritméticas 
PREÇO: (Fotocópias) — 1 050$00 


e BASIC HYDRAULICS 
PD SMITH, BUTTERWORTHS, ENGLAND, 1982 


— Introdução ao Basic 
— Elementos de Fluidos mecânicos 


— Engenharia hidráulica, processamento de dados ... 
PREÇO: (Fotocópias) — 350800 
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CLUBE Zso 








BELTMAN 


SPECTRUM 





OBJECTIVO DO JOGO 


UM ELECTRICISTA TERÁ DE VERIFICAR TODAS 
AS CAIXAS COM FUSÍVEIS, EXISTENTES NA 
FÁBRICA. PARA ISSO VAI MOVER-SE DESDE O 
PONTO INFERIOR AO SUPERIOR, USANDO AS 
TECLAS 5 a 8. Portanto, vai ter de ser mover 
rapidamente 

DEVERÁ TENTAR ATINGIR O PONTO MAIS ALTO 
(NÍVEL — 21) QUE SE ENCONTRA NUMERADO E 
CONFORME O PONTO DE CHEGADA, SERÃO 
ATRIBUÍDOS BÓNUS (de 10 a 300 pontos, da es- 
querda para a direita). 

Para isso, deve passar através das aberturas de 
cada nível, evitando, no entanto, as de nível inferior. 

A melhor forma de evitar as aberturas de nível 
inferior, será utilizar as caixas para descansar e ao 
mesmo tempo esperar que as aberturas desapareçam 
debaixo do lugar onde se encontra. 


1 REM XVAL =EZVAL = RESTORE MúvE & 
AL - RESTORE MOVE + GO SUE LH 
2 REM xxxxx2>26 PRINT STEP DRAU 
RETURN PI>= FOR xx 
GO SUB Egg: LET sc=6 
PAPER 5: BORDER 3: IME 
GO SUB 1000 
FOR a=A TO 31: 
LET r=21: LET c=1 
CATA 0,16.80,602,158,16,4944, 
DATA B,16,18,60,80,16,44, 
DATA A, 16,802,6A, 18, 16,494, 
LET q=Hy 
PRINT AT 21,1;" ” 
FOR t=1000 TO Q STEP -Z 
PRINT SB;AT 1,0;"Scorez=";sT;" 
LET n=< IHKEET6="S"o-cCINKETVS="5") 
IF c+n>38 OR c+nº1 THEM GO TO 
43 IF n=8 THEH GO TO Ga 
LET aq=HOT q 
PRINT AT rc; 
PRINT AT r,c+n; 
LET c=c+r 
LET m=< IMKETS="E"9-c INEKETS="7" 
IF rempzl OF r+mia THEM 
IF POIHT ccoxa+2, 173-r&Bo> AND 
IF m=8 THEH GO TO 108 
LET a=NOT q 
rS PRINT AT rc; 
re PRINT AT rem.c; 
LET so=sc-1BHC mo 
LET r=r+m 
IF r=8 THEN LET soc=so+lgfc: 
FOR s=g TO J4-so-BH: MEXT q 
IF INKEYS<>'"" THEM BEEP 
LET 1=lISK 235346 


q LLS 


td O id 
Py 


[5 


ET 
1 


OvER la " 
OVER 1," * 


OvER a " 
OVER 1;" 


GO SUE VAL VAL ca 
VAL AA e e 
“ LET AND G FRINT 


PRINT AT B,a;ta-IHT caclásêldoo” 


GO TO 


Bi, 2Zi=r 


INICIALMENTE: 

Usar o programa da Pág. 11 (canto inferior direito). 

ACCIONE O COMANDO: RUN. 

SEGUIDAMENTE: Dar entrada do primeiro ende- 
reço da primeira secção (23 760 a 23 786); dar entra- 
da dos 27 bytes. 

ACCIONE O COMANDO: RUN. 

SEGUIDAMENTE: Dar entrada do primeiro ende- 
reço da segunda secção (23 800 a 23 826); dar entra- 
da dos 27 bytes. 

ACCIONE O COMANDO: RUN. 

SEGUIDAMENTE: Dar entrada do primeiro ende- 
reço da terceira secção (23 846 a 23 868); dar entra- 
da dos últimos 23 bytes. 

DEPOIS DE TER DADO ENTRADA DAS TRÊS 69 
SECÇÕES DO CÓDIGO MÁQUINA, PODE DAR INÍ- | 
CIO À INTRODUÇÃO DO PROGRAMA A PARTIR DA 
LINHA 3. 


NOTA: NAS LINHAS 20, 45, 75; USE GRAPHICS e tecla A ” 


NAS LINHAS 46, 76 - USE GRAPHICS e tecla B 


E E ME R MEN MT m | ES 


STEP CLOSE 4 LET AND 


HEZT a 
AN 


“THE 13:"Timez=";t;” a à 


Go TO LH 
rm=-1 THEI! 


so TO ju 


cus 


CLUBE Zso 
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3802 POKE 23675, u+rgra 

323 IF SCREENS cr+1l,c)=" " THEH LET m=i: GO TO 74 

305 MEXT t 

306 GO TO 3000 

698 FOR k=USE "a" TO USR "d'-1: READ a: POKE k.a: MEZT k 

639 LET w=PEEK Z3E73 

E6A RETURM 

1002 OVER O 

1905 LET 1=1 

1907 PRINT 4O;AT 0,0; INK S;!--=—=———== ===... ' 

1210 FOR c=7 TO 159 STEP & 

1611 LET 1=NOT 1: IF 1 THEN GOTO 1928 

18915 PLOT g,c: CEAU B,B,FI 

1916 PLOT 253,7: DRAW OD,S,-FI 

12020 PLOT 82,0: DRAW 255,4 

1921 FOR dai TO 2+sc/580 

19423 PRINT AT Z1-IHNT co-Bo,RND&Zo+ 14" ": NEXT d 

1827 NEXT o 

18022 OVER 1: FAPER & 

13436 FOR kE=1 TO 21 STEP 2: PRINT AT k,8; PAPER E; 

M "“; NEXT k 

L10s54 FOR k=g TO 184: PRINT AT END&Za+i , RHDEZa+1 "HR": MEAT k 

1978 RETURN 
egag FLASH 1: PAPER 4: CLS 

eg2a PRINT AT 14,3; "BOHUS "ocxlig;" pontos": AT 15,8:;"somoy "isc;" pontos" 

26594 FOR c=1 TO SB: BEEP .Mgi,2li: BEEP ,DlL,cCê6: BEEP «3.31: NEXT c: FLASH 8: RUN 
3SBAA PAPER GB: IME 7: BORDER dd: CLS 

3824 FREINT AT 17,8;"Conmseguiu "izc;" poíntas.” 

360380 INPUT "Hovo jogo VC "iugo TF qgó="s" Ok u6="5" THEM RUM 

saga FOR cs TO PPPP: LET l=18 IHEEvESL""OS: PRINT AT B,0;1: NEXT c 

caro = 42 casa = 42 2346 = 6% 

23761 = 176 23801 = 176 23847 = 7 

care = 92 23802 = 32 ess = 71 

T2sre3 = 69 23803 = E9 23849 = 245 

cars = 14 2aetis = 14 CSA = HS 

23763 = 0 CBS = Za sl = Sã 

CITE = ZH C3enE = 2H causa = AZ 

eIP6er = 17H 23807 = 1708 gem = 241 

CIV6B = 34 23805 = 34 gamas = 198 

ZIPESG = 126 2a = IZÉ cura = 8 

e3rrg = 5H 23818 = 58 CB = q 

esrri = 176 23811 = 176 Eus” = 245 

esrre = 92 essiz = 92 232ss = 285 

27 = 223 e3813 = 223 essa = 2lé 

eIP74 = 203 essi4 = 2063 sem = az 

e3Prs = 35 caBglso = 43 2SBEl = 24] 

esrr6ê = 1 CsBlê = 1 case = 1398 E z Ai 
23777 = 21 29917 = 31 22063 = 8 BELTMAN: As três secções de códi- 
esrrB = esBls = q CBS = 254 go máquina que observámos ao lado, 
23779 = 237 238144 = 27 22368 = LEY são introduzidas com este programa: 
meio o Li) soam E cg Epa E ia 1 REM (75 X's) (escrever a letra X, 
23782 = 176 23822 = ITE  P2868 = 225 75 vezes) 

2 REM (30 x's) 

23783 = 92 23923 = 92 3 INPUT AB: FOR N= A TO B: IN- 
23784 = 18 23824 = 18 PUT (N); 

23785 = 23925 = à " X: POKE NX: PRINT NX: NEXT 
esrBEo = cyl 2sBe6 = Al N. 





vii) da RE pe | j a jones, ia <A OBS 
= a ida 7) <> 
EEE = 


oeiras 
dito je pesca e qa 
induj A-Hhes 


Ajddns eos 








su os GiLp 


lnog 
99] 


Na 





que| punos 
EM Pr ma ah 
éSU| Se SWOMS 
AS+ indu] = ig 
[2% 84> 
eatie 


y 
gl LSISIL E: | | 
e Tá ON Ia 
Ee | : 
OTA, 
td) 








CIT IGeo> 
a e Rg ADE cg dica 
ae) ; 





É je 9€U Hv3 
de ame En a) 089 
ar 
ve ac Et Em | o 
8! A! Ei 152 AQ 
vo 
EQ 
: bT od 
Bhih ud 
= | AA 
T| ejsccaTE nr Í voseIyen'DT Aq umeg 
ng + "PW€ UDJBosoy JBjouIs 
EXE AQ 
Sgt res eu Z86L 18nBny 9.(D) 
E rd ae ZoL 2HS 
h 4 
Bh! E s+ OM] 9NSS| - WEeIBeig HNnd1/9 WnJjd0ds YZ 
ca JIEjIUIS 
- Ed 
H 
= 
« 
y 


OJSUNU OLIIXQI] OU IPS Z eued y :PJON 


9149 


O3QIA 
Alo, 
Inox! 

EU 

ty 





(8) 3ms snINoguo> (4) 2054 3ann 





Es 1% 3 
ess «1 
[598] 
Xol 
HH | ee ss. 





| 


| E MA 
a o EF 
rea ter gs 
| al EE2 

e“ + ' 


Sa] Z4wl 


ATIt AG. AOAG+ 
5) 
Ih 
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CLUBE Ze 








GRELHA SPECTRUM — 16 ou 48 K 





PROGRAMA ALAPTADO P>2JQSE HART IIS 


1 PRIHMT AT 4,4; "programa adaptado po JOSE MARTINS":;AT 6,B; "SPECTRUM 16k OU 48K 
“HT 8,0;"R GRELHA DESENHADA SERVE PARA “ERIFICAR A DEFINIÇÃO DO TV E EVENT 
VALMENTE CORRIGIR Q SINCRONISMO VERTICAL HORIZONTAL 2” 

e PALISE 4908: CLS 

Ss REM "GRELHA" 

19 FOR Hz TO 158 STEP 15 
2a FOR M=0 TO 158 

38 PLOT H,M 

as PLOT MM 

44 PLOT M,M 

45 PLOT M, 158-I1 

sa MEXT MM 

Ea HEZT 

ra REM "COPYRIGHT AS: 1983" 


sê 





PORTA-AVIÕES SPECTRUM — 16 ou 48 K 





PROGRAMA ADAPTADO PouOSE MARTINS 


1 


UM 25/40 K 


ao P de aterrar mum 
- PA à 
Ss te Ss 5 e ?7 


r 
PRINT "PROGRAMA ADAPTADO PoJOSE MARTINS":AT 4,8; "SPECTRUM dai “As KºSAT 6,05” 


OBJECTIVO:":AT S,B;"um aviao pretende aterrar mun Porta-Avioes":;AT 180,8; "ugar 


as 


teclas 6 e 7": PAUSE 4AA: CLS 


s REM tw PR n" 


19 
2] 
33 
poi 
po oe 
Fog 
7a 


LET Xx=10 

LET =x “A 
FOR S=B TO 26 É 
CLS 

PRINT AT 20,8;"-==——>— ==... 2... 
PRINT AT 20,5;" 

IF 5=26 THEM LET 3=4 


=LOPAPRENT, MESES DS" 


150 
135 
166 
220 
Pta 
328 
420 
300 


10 
SA 


LET Y=Y+2.5 

IF w>27 THEN LET Y=0 

LET X=X+< INKEYS="6"9-< INKEYS="07" 

IF x=19 AND cY+3=5+2 OR vY+2=S+2 OR Y+3=5+4) THEM PRINT "ERAVO": STOP 
IF X=19 AND cY+3=S OR Y+3=5S+1 OR Y+3=5+5 OR Y+2=5+6)> THEM GO TO 500 
IF x>20 THEN GO TO 358 

NEXT 5 

PRINT AT X,Y; "CHOQUE" 

STOP 

PRINT AT X.Y:"PLOF" 


alinemenco 60 Print at 20, S; “desenho à esquerda” 


100 Print at X, Y; “desenho do Porta-Aviões”; at X+1, Y+3; “O” 





CLUBE Z 80 aaa 








INSTANT IMAGE TRANSFER 


TO ZX SPECTRUM 


RD DIGITAL TRACER £55.50 





TECHNOLOGY L.” para o SPECTRUM (LLIST & LPRINT). 


Telef. 61373 ad 


COMO OBTER ARCOS? 


Para representar um arco tal como na figura 1 


RD DIGITAL TRACER ZX SPECTRUM E ZX81 para transferir 
desenhos do papel para o ecran, com software e manual. Vendo 
ou troco por impressora zx sinclair. Vendo também RS 232 C 
INTERFACE adaptável a várias impressoras da “COBRA 


SANTIAGO RIBAS » PORTO 


The high resolution colour graphics of the ZX 
Spectrum permit accurate presentation of complex 
or irregular images — maps, technical drawings, 
even personalities. But entering individual co- 
ordinates for unusual shapes can be tedious and | 
time-consuming 

The RD DIGITAL TRACER cuts out tedious 
plotting. It provides instant transfer from original to 
diplay file — for screen display, ZX printer printout, 
or retention on cassette. 

The RD DIGITAL TRACER is supplied with 
tracing sheet, software cassette and full instructions 
on use. Latest software includes fast colour fill, 
audible keystroke acknowledgement, fast PAPER 
ad change and fast LOAD from saved display 
ile. 

This is an invaluable tool for engineers, architects 
and other technicians, and for educational use in 
the presentation of lectures, and in computer 
training and application. Designed for the ZX 
Spectrum, the RD DIGITAL TRACER as supplied 
is compatible with ZX 81, although high resolution 
colour graphics are not available on this machine. 

The RD DIGITAL TRACER is available from 
computer shops or direct ffom RD Laboratories. 
The direct, UK only, price of £55.50 includes VAT 
(Postage and Packing free). Send a cheque (payable 
to RD Laboratories Ltd.) with order for delivery 
within 28 days, or ask your local dealer for details. 


SPECTRUM 


Persa, 
“+ 


basta introduzir a seguinte linha: no bi 


10 PLOT 120,55:DRAW 0,25,9999 — 2 » P| * INT ii o! 
(9999/(2 * PI) | | 


7» «PLOT» — traduz a posição do arco no ecran ds ! RO 
| segundo as coordenadas x,y. a / eae À 
«DRAW» — define o arco. Pl Ma 
Alterando a segunda variável da instrução DRAW 3 
para: «.. DRAW 0,50...» vai permitir-lhe o segundo 
arco representado na figura: «.. DRAW 0,100...» Fig. 2 
permite-lhe o terceiro. 
Na figura 2 a alteração é a seguinte: «.. DRAW 
0,-25....» (primeiro arco); 0,-50 (segundo arco); O0,- 
100 (terceiro arco). E add ia A á 
Fig. 3 — As variáveis do comando DRAW, tomam Eá ue aa a 
os valores: -25,0: -50,0; -100,0 para primeiro, segun- é É e NO 
| do e terceiro arcos, respectivamente. 


NOTA: Dê à instrução «PLOT» os valores que lhe tornem possivel 
o arco completo nos limites do ecran. Caso contrário x a / 
verificará o erro: «B Integer out of range...» 
A linha não deve sofrer qualquer alteração excepto nos a pare 
comandos DRAW e PLOT (x,y). 

Os valores das variáveis podem ser substituídos de modo a 
definir o arco como pretender. Fig. 4 





CLUBE Zso 








10 FOR n=68 TO 173 STEP 15 

28 READ z: IME x 

38 PLOT n,-4 

49 DRAM SA, EP, -PI“3 

sa DRA 4,-7,-PI 

66 DRAW -100,0,-PI-3 

78 DRAN 4,7,-PI E 

2a DRAW SA,-E7.-PI3 46 

99 DRAW -B,8,-FI sa 

190 NEXT n sa 

119 DATA 1,2,3,4.4,3,2.,1 PR 
A 
ag 
106 
118 
128 
139 
149 
159 
LEA 





FOR n=8 TO 1794 
PLOT n,8: PLOT 
NEXT mn 

FOR n=g TO 174 


PLOT 4 
HEXT mn 
LET a= 

FOR n=167 TO A: 
LET aza+8 
PLOT B,n: 
DRA ma 
DRA —a,rm 
DRA N,"8 
NEXT mn 


sn: PLOT 175, 


DRA 


n 
j 


+ wa 
w T=8 


o 
p 
= 
5 


d 
m 
e 


Omo D 
TOnc- 
qqr» 
o Dn & 


LET 

PLOT 
DRA 
DRAI 
DRA 
DRA 
DEL 
DEAL 
DE RL 
DRA 
DER 
DE RL 
DPL 
DEP 





Linha 8902 do 


a 

Fr : 

E TO 2 STEP-16 
& nova apresentação. 





a=—. S0EXPI 
128, 149 
-=S2, “120,3 
28,858,a 
-120,-32,3 
120.-32,43 
“So, BE, a 
Se,-120,4a 
Se, 120,a 
-58,-BB,a 
120,32,4 
“120, 32,8 
Cs,-88,a 


-=2, 120, a. 


“dh 





terceiro 





CLUBE Zso 


IL TAS a | 


» Larga: 
E eqçõo 


E: = 


3 
7 


“b;AT S,22;"Laro. : 


"AT 6,22;ºn' “;n;ÃAT 0,228;"0: 


CLS:C "; LINE am 


19 INPUT "Largura "ia 
280 INPUT "Altura “:tb 
39 INPUT "Ent. n "im 
49 INPUT "Ent. e "ie 
sa PLOT B,87: DRAU 175.8 
A 60 PLOT S7,B: DRA 9,175 
78 LET c=.B81: LET d=2%PI 
94 FOR o=c TO d STEP .Bal 
19284 LET x=aX£SIH (Cntore +87: LET u=bESIN o+87 
1180 PLOT x,y 
1280 NEXT O 
138 PRINT AT 2Z,22;"Altu.: 
;e 
148 INPUT " Impressora:I Fim:F Repet.:R 
150 IF as="i" THEM COPY 
160 IF as="€" THEN STOP 
170 IF a6=""r" THEH GO TO dg 
182 IF af="c" THEN  RUH 





CURVA DE LISSAJOUS 





pa Este programa desenha uma curva de Lissaious 
fcom uma altura e largura especificadas, para um 


dado número de ciclos e com uma certa simetria. 
(A execução do gráfico é bastante lenta). 





Para aquisição de um ZX Spectrum 
VENDO PELA MELHOR OFERTA: 


— ZX 81 

— impressora Sinclair 

— módulo de expansão de 32 Kbytes 

— Circuito de inversão de vídeo e sono- 


rização do teclado 

— várias cassetes com cerca de 90 pro- 
gramas (utilitários e jogos) 

— literatura para ZX 81 (livros e revistas) 


OLIVEIRA 
Rua da Alegria, 726-3.º-A — 4000 PORTO 
Telefone 569181 


Contactos: A, 








LISTA DAS VARIÁVEIS 





a — largura da figura 
b — altura da figura 
n — número de ciclos 
e — simetria 
o — deslocação angular em radianos 
x e y — coordenadas do PLOT 
a$ — variável decisão 


OBSERVAÇÃO 


JOGO DO GALO 


(número de Setembro) 


No Jogo do Galo para o ZX 1, cuja listagem 


saiu no número anterior (n.º 12, Set./83), na 
pág. 8, as linhas 150 e 240 (LET T = CODE 
E ") são completas com as teclas corres- 
pondentes ao código dos gráficos que se encon- 
tram nas linhas 500 e 510. Para isso use a tecla 
Graphics +, a tecla indicada na REM (500, 510). 





a a a 




















TE =———= E CLUB E Z 80 
ACCOUNTANT | SPECTRUM 48 K 
Autor: SANTIAGO RIBAS 


Porto 


Trata-se de uma rotina Importante para o utilizador do SPECTRUM. 


Faça o «MERGE-» nesta rotina com o seu programa (que não contenha nenhuma linha coincidente!) e poderá 
ter o desenho do diagrama de fluxo do seu programa. 


99090 REM "flowy-chart” 
9901 OVER QB: INVERSE B: BRIGHT 1: BORDER 1: PAPER 6: INK 6: hs 


9982 LET a=PEEK 23636: LET a=a*256: LET a=a+PEEK ESG IS 

9993 LET c=B: LET sg=175: LET x=130 

99904 LET 1=PEEK a: LET 1=1XZ256: LET 1=1+FEEK cat+l]): LET a=a+9 

9995 IF 129899 THEM GO TO 3543 

9906 PRINT L;THRE S;CHES FEEK a: LET c=c+2: FERINT 

9987 PLOT x,y: LET Db=FEEK a 

9908 IF b=226 OR b=234 OF b=7242 OR b=254 THEM GO TO s92g4 

9909 IF b>227 AND b<2321 OR b=232 OR b=225 OR b=241 OR b=247 OF b=249 OR b=253 THA 
EN GO TO 2925 

39184 IF b=243 OR b=250 THEH GO TO S326 

9911 IF b=236 OR b=237 THEM GO TO 3334 

9912 DRAW 16,0: DREAM -4,-8: DEAL -2Z8,8: CRAN 4,85: DEAL 12,0 

9913 LET g=9-A 

39914 IF b=226 OR b=236 OF b=237 OR b=254 THEM GO TU 94916 

9915 PLOT x,9: DRA Q,-7: DEAL 4,4: DRAL —4,-&: CRB —3,4 

3916 LET g=9-S 

9917 LET b=PEEK a 

9918 IF b=14 THEN LET a=a+4 

9919 IF b=1i3 THEN GO TO S322 

9920 IF b=58 THEM GO TO sa24a 

3921 LET a=a+1: GO TO 3317 

age2 IF c=28 THEM GO TO 3343 

9923 LET a=a+i: GO TO 2284 

9924 DRAW 12,0: DRA 3,-B,-FI: CRAM 24,8: DRA -4,8,-PI: DRAL 12,0: GO TO 9913 
9925 DRAW 16,0: DRAW B,-8: DRALM -32,8: DERAM B,.E: DREAM 16,8: GO TO 3313 

9926 DRA 8,-4: DERAM 8,8: DRAL -4,4: DRA 4,-4: DRA —4,-4: DRAL 4,94: CRAL -5,0: 
DRAW -8,-4: DEAL -3,4: DRA 5,4 

9927 IF b=243 THEN GO TO 29333 

9928 LET a=a+i: LET Ff=PEEK a 

9929 IF f=14 THEN LET aza+4 7 
3930 IF HOT f=203 THEM GO TO a326 

- 9931 LET a=3a+1: LET f=PEEK a: PEINT AT c-Z,132;CHRE +F: PRIHT 

9932 IF f=236 OR f=237 THEM GO TO 9333 

a933 GO TO 9913 

9934 CIRCLE x,9-4,94: PLOT ut+t4,9-4: DRAb 694,8: DRAL —4,4: DRAL 4,-4: DRAL -4,-4: 
PLOT x, 

9935 LET a=ma+l: LET f=FEEK a 

9936 IF NOT f=14 THEH GO TO gsa3 

993? LET a=a+3: LET a=PEEK Ca+l): LET a=9H256: LET a=a+FEEK (a) 

9938 PRINT AT c-2,26;9: PEIHT 

39939 GO TO 39313 

99484 IF c=26 THEM GO TO 2543 

9941 LET a=a+1i: PREINT " “TRE S;CHR& PEEK a: PRINT : LET c=c+Z 

3942 GO TO 2587 

9943 INVERSE 1: PRINT AT Z1,B;"Carregue" "ag! to MERO Mp im SPRRINTO: INvVERSE O 

3944 IF INKEYE="v" THEM GO TO 3947 

9945 IF INKErt&="p” THEM GO TO a531 

9946 GO TO 2944 

9947 CLS : LET d=B: LET e=22: LET c=B: LET x=138: LET g=175 

3948 IF PEEK a=58 THEM GO TO 9941 

9949 IF 1>:9899 THEM STOP 

99850 LET a=a+i: GO TO 323049 

9951 PRINT AT 21,0;" ": RANDOMIZE USE 65044: GO T 
O 9947 


CLUBE Zso 


10 
+ 2 


1200 
12910 
19zZ0 
1230 
1240 


1250 
IDEM 
1970 
mea 
19980 
11200 
1110 
1128 
1130 
1140 


1150 
1160 
dd: SO 
1180 
1190 
1220 
1204 


1208 
1210 
1220 
12830 
1x4 0 
1250 
1260 
1270 


1260 
1290 
1300 
1310 


REM 
BORDER 


INK 
PAPER 
REM 
REM 
REM 
PRINT 
PRINT 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
CLS 
IF 
CLS 
dai 


4 
Sá 
Er 
E nd 
CLS 
GO TO 
PRINT 
INPUT 
E Suá 
BEER 
Á 
PRINT 
va Lew 
STOR 
REM 
REM 
REM 
DIM 
DIM 
D IM 
LET 


LET 
É IM 
"as 
RETURN 


G) 
Q 
u 
Ja 
m 


G) 
Õ 
O) 
E. 
q 


SUB 
SUE 
SB 
SUB 


oo QU 
cs, 


Õ 


4 


| 


HR AREA (RO del oo ARO ANNA 


SAVE 


1320 


1394 


2120 
2650 
1210 
1202 


1220 


1320 
1330 
1340 
1356 


1380 


14%0 
1450 
1453090 
1590 
1518 
1520 
1530 
1540 
1545 
1550 


LEGO 
1570 
15580 
1550 
15020 
1810 
16z0 
1640 
16 SO 
1SEU 


1870 
16 EM 
1720 
e io 
17 =0 
1730 
17535 
1748 
1750 
1760 


1770 
1780 
1730 
1320 
131% 
1818 
1814 
18=0 
1330 
1340 


REM 
REM 
REM 
PRINT 


PRINT 


PRINT 
INPUT 
a 

É e 
REM 
REM 
REM 
Ee T 
CUuS 
PRINT 


INPUT 
PRINT 
Le 
PRINT 
INPUT 
PRINT 
INPUT 
E À ud 
FOR 
PRINT 


NE xT 
so TO 
Sal 
LT 
Le T 
LES 
CLS 
SO TO 
REM 
REM 


REM 
PRINT 
INPUT 
PRINT 
LET 
DIM 
“45 
FOR 
od 

NE xT 





E 


RETURN 
GO TO 


S0O TO 





S0 TO 


19 


1750 


1620 


1690 


1558 


1410 


1890 
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Autor: FERNANDO D'ALMEIDA PRECES (Parte 11) 








CONTINUAÇÃO DO 1.º CAPÍTULO 
— PROGRAMAS MONITORES 





O segundo programa deste capítulo, é também dedicado à programação em código máquina. Ele está 
concebido para introduzir num endereço à escolha do programador, quer em código decimal quer em hexadeci- 
mal, as instruções máquina necessárias a um programa ou rotina previamente conseguido. 

Mesmo para um simples ensaio em código máquina, que o leitor queira submeter ao computador, este 
programa monitor continua a ser útil, pois com a manobra das teclas discriminadas no pequeno programa de 
instruções, poderá facilmente avançar ou recuar tantos endereços quantos desejar, visualizar os códigos neles 
contidos, alterá-los, etc. 

Até os possuidores de máquinas apenas com 16 Kbytes, apesar da extensão do Basic deste programa monitor, 
o podem utilizar, sem limitar o número de instruções do programa máquina a introduzir, pois o Spectrum dá-lhe a 
possibilidade de gravar esse programa em fatias, que depois poderá reagrupar após ter apagado o Basic do 
programa monitor. 

Procurando, no entanto, reduzir ao mínimo o espaço de memória ocupado, o programa monitor está dividido 
em 4 secções distintas, podendo cada uma delas ser independentemente chamada pelo computador, sem 
carregar as restantes. 

O programa «Inst» — contém o MENU com a apresentação das 3 secções monitoras e as instruções 
necessárias para a sua utilização. Pode modificar as cores do ecran (BORDER, PAPER e INK), ao gosto do 
utilizador e por selecção indica ao computador qual o programa a carregar. 

O programa «1» — Introduzir as instruções máquina em código decimal ou hexa (a seleccionar) possuindo 
características muito úteis para os ensaios que iremos fazer ao longo deste texto. 

Programa «2» — Contém 2 conversores de códigos (decimal-hexa) e (hexa-decimal), cuja utilização se destina 
ao estudo da linguagem máquina, pois permite, além da visualização habitual no ecran da TV, a listagem dessa 
conversão numa impressora (Printer). 

Programa «3» — Introdução rápida de programação máquina em Hexa. 

Este programa foi elaborado de forma a poupar tempo e trabalho ao utilizador pois permite a introdução de 
grupos de instruções de uma só vez, sendo recomendado para programas já com uma certa extensão. 

Qualquer erro cometido na introdução do C.M., terá, no entanto, de ser corrigido antes de ser accionada a tecla 
ENTER que dá a entrada dos dados no computador, ou terá de recomeçar de novo. 


s BORDER &: PAFER So IME do CLS 

194 PRINT AT 18,5; FLASH 1; IME 2;" DESLIGUE O GRAvVADUR * 

15 PAUSE SAB: FLASH DB: CLS 

24 PRINT AT 14,1; FPAFER 6, IHK 0;" Selecao das cores no ecran: 
es INPUT "Moldura CEordersoo "im 


SH INPUT "Papel cFapercto "ip 

as INPUT "Tinta CInksT “;t 

40 BORDER m: PAPER p: INK t: CLS 

45 PRINT AT 3,5; PAPER &; IME BC MEM 

sa PRINT AT P.l;"i — Introdutor de Cold. em decim. ou hexa.” 
SS PRINT" 2 —- Conversor de decim.-hexa ou hexadecimal.” 

6a PRINT "o 3 - Introdutor rapido de Cl. em Hexzadecimal.” 

6S PRINT “º""Selecione o Monitor 1,2 ou Bar” 


e 
"8 INPUT u: CLS 
sag LET a$="0 monitor faz STOP com a tecla t” 
505 LET b$=" LIGUE O GRAVADUR * 
S10 PRINT AT 1,5; PAPER GG; IME dg; IHGTEREUCDES 2" 


sem IF u=2 THEN GO TO com 

SIA IF u=% THEH GO TO aa 

s4g PRINT Cº" O monitor 1 e um programa lentomas muito util para ensaio e estu 
do de programacao em codiac maquina. So admite a entrada de uma instrucao de cad 
a vez sendo necessario primir ENTER antes de aintroduzira” 

ssa PRINT "“" Hs teclas de movimento CS, EP ego, em condunto com tecla CAPESHI 
FT. permitem recuar, avancar, Lou lã enderecos de cada vez.” 


60 PRINT “ag. 
arg GO TO Saga 


GgaB PRINT ºC" O monitor 2 eum programa queconverteocodiaoLlecimal em codi 
go Hexa ou este em decimal. O ecran mostra ZA insgtrucores em cada SCROLL, sendo 
possivel obteruma copia deztas muma Printer." 

Bla PRINT º" Cada instrucaoc e convert.idaapos primir ENTER." 

GeB PRIHT “ag 

634 GO TO SOB 

"BB PRINT" O monitor 3 =wumaiantrodutorrmuitorapido de codigo maquina embe 
xa. Pode introduzir todas azinstrucores que entender de umaso vez e estas vao 
sendo vizuazadas a medida que sao enderecadas” 

rig PRINT *" Este programa e muito util paraa o introducao de programaçao emcod 
ilao maquina ja devimente testada, por não permitir recuar para emendas." 

reg PRINT “ag 

ag INPUT “Apos a leitura das intrucõoes prima ENTER. “:1& 

8180 CLS : PRINT AT 12,6; FLASH 1; INK 2;bS 

820 FLASH O: PRINT **" Em carga o programa: €Cº;us"as 

830 IF u=1i THEN LORD "1" 

40 IF u=Z THEN LOAD "2" 

834 IF u=3 THEM LOAD "3" 


4H 100 CLS : PEINT 
125 INPUT "O Cali. 
118 INPUT " Entre com o primeiro ender 
128 LET s=1BXIHT (sr 
130 LET x=8: LET q=A 
i$gg GO SUB IBBA 
154 PRIHT o JIHE 7; PAFER Z;ATO, a" MONITOR FREA CODIGO MAGQUIHA di 
1684 PRINT OVER 1; FLASH 1;AT F+Zka, SH; 
170 LET ag=INKETS 
138 IF CODE ag<i2 ANDO CODE ab:>7 THEM Gu TO Gay 
138 IF CODE ag=b THEM GU TO Let 
1344 IF z=i THEM GO TO Eme 
136 IF z=2 THEH GO SUE PARA 
214 IF LEMN ag >2 THEH GOTO Les 
e2g GO SUE SHU 
2380 IF vg OR v>135 THEN GO TO Lea 
24 LET =» 
23 LET ag=agé 2? 
ce O SUE Sam 
270 IF vía OR vr15 THEM GO TO 7a 
2eg LET l=»w 


HE 1; PAPER SAT A,g;"o MONITOR PARA CODIGO MAQUINA á 
em Decimal ou em Hexa” Indique 1 pé decirm. ou 2 p-/hexa 
co “« em decimal 2v";s 


a 


O 


mh 


238 LET v=16Xh+1 
00 suo POKE s+1m4+u, + 
SIA PRINT OVER 1; FLAGH D:;AT S+r2ãae. Srstua;”" v 
328 IF 4u=9 THEH GO SUE 1008 
2380 LET g=94+1 
240 IF 4:32 THEM LET u=0: LET u=u+ 
388 IF x<lg THEH GO TO 148 
368 GO TO PSB 
SãM LET «v=CODE ab-42-FPECCODE abra o-FeEc CODE abr36 4 
Sig RETURN 
GOB PRINT OVER 1; FLASH G;AT Bretu BH 
6184 GO TO S4B+LBECODE ag 
6e2B LET g=4u-l: GO TO Gem E 
E34 LET u=u+i: GO TO FAB 
ESA LET x==+1: GO TO cam 
ESQ LET x=x-1: GO TO ESA 
ESA IF 4u2=H THEM GO TO let 
Erg LET 4=92: LET u==x-1 
ESg IF x>=B THEH GO TO ida 
bob LET s=s-l6: CLS : GO TO 134 
"BA TF J<18 THEN GO TO 160 
rlB LET 4=B: LET x==x+1 
rey IF x<ig THEM GO TO diga 
“34 IF x=18 THEN ULS : LET s=s+l194%<: GU TO 139 
40 GO TO 146 


l9DB IF S<ã OR 52655930 THEN GO TO 118 


RE O a E 


22 


laja 
1HZH 
TBEB 
LHS 
18H50 
«18H66 
1H7A 
EtAtata 
EL 
EA Zi 
[ol pj 
GRE 
ET 
Bat 
EIS 
G1HO 
6120 
6138 
6148 
ELEM 
EI7B 
6130 
6200 
70BA 
"803 
"BIA 


19 
2a 
30 
40 
pai, 
EB 
ra 
cana 
gaga 


CLUBE Zeo 





PRINT AT 2+2Es.Dos+ DES 
FOR i=stiBtao TO =+161%8-+4 
IEET>ASSEIVSAL + GU TO LS 

LET v=PEEK à. LET r=IHM] cwecles: LET 1=v-16Xh 
PRINT o! "+ALHES chegue ca hos a+CHES Cc l+egE+ FAC 12992; 
HEZT à 

RE TUR 

FEM conversão deccheca 
INPUT " Codigo maquina 
IF t$="t" THEH slur 
LET d=vAL bg 

IF d>255 OR de-IHT od THEM 
LET f=236: LET h85"" 

LET E=INT «der 

GO SUE EL7A 
LET d=d-kt+t: 
IF f«<1i THEN 
GO TO Ecgso 
IF h$12="B8" THEH LET h$=h$.: TO 
LET a$g=h$: GO TO Gela 

IF k<=9 THEM LET h$=h$+CHES ck+9430 
IF k>53 THEN LET h$=h$8+CHES ck+TS O 
RE TURN 

INPUT “ Codigo maquina em HEXA 
IF afg="t" THEN STOP 

RE TIJRN 


PRINT THE &. 


decimal “ts 


ef 


at TO el 


t=IH1T «to 
Tu Gelgm 


LE 
GO 


Lê + 


"as 


INE 2; MEHU DO CONVERSOR 


PRINT AT 2,6; FAFER 6; 
“420 4 - Decimal para Hexa. 


CLS 
PRIMT 


PRINT º'" 2 —- Hexa. para Decimal.” 


PRINT “º""Indique o numero que pretende, 5 
INPUT q 

IF c=2 THEH 
LS 

REM conversão decchexa 
PRIHT AT Iy,3; "Pretende 


GO TO ZBHA 


uria copia. pela Frinter?* Diga <sS ou nao). 


INPUT p&: CLS 


calo 
2013 
cala 
ego 
Pd Sa RE 


dg: GO 


Pi E ad 


TO 2Ba2a 


Pd a a de 


CecirmcHexa": PRINT 
“dd 


PRINT AT 8,5; PAPER 6, IHE LoflConverszao 
INPUT : PAPER 2; IME 74" mumero em decimal, 
IF d$="t" THEN STOP 

LET d=vAL dg: LET de=d 
IF dzé5535 THEN IHPLUT 
TO 2o2o 

IF d<1i THEM 


FLASH 1: THE. de escala. fl 


es cra 


THPFUT FLASH 1: INkE.oso"Hao imtroduza numeros * 


IF d<>INT d THEM  IMPUT FLASH 1: IME Z;"Hao introduza fracioes.":d&: 


q zoca 


Ega 
BE 
2ara 
casa 
2aso 
lama 
2118 
2120 
2130 
2135 
2148 
cet 
cela 
geo 
3200 
3002 
300 


INPUT pp: 


LET f=4096: LET h$="" 

LET u=INT <d:f) 

GO SUE 2288 

LET F=IHT Cfc165 
GO TO gila 

D 3: IF hecti="a" THEN LET hó=héca TO 
PRINT TRE 5; 
IF pê="=" THEH 
GO TO 2813 
IF q4=3 THEM 
IF 1423 THEH 
RETURN 

FEM conversão hexzacdecim. 
CLS PRINT AT 8,3; FAPER 
PRINT AT 160,3,"Pretende um 
CLS 


de,hé+" «Ho" 

LPRINT TAB S;de.hé+r"o  cHo” 
LET Hh$é=hE+CHES CurdEo 

LET h$=hE+CHES Cartao 


HexacDecirm. 
Printer” Liaa és 


"LanvErsSad 


pela 


INK 1; 


Ê ; 
a copia, nao)”: 














3818 PRINT AT 8,53; PAPER GE; INE L;'Converszao HexacLDecime": PRIHT 

sg12 INPUT ; PAFER 2; IME Tolo mumero em Hexa. “ih 

3615 IF hê="t"” THEN STOF 

3013 LET q=1: LET d=t 

s020 IF LEM h$>4 THEM O IHPUT ; FLASH 1; IHE 2s;"FORA CE ESCALA — MAXIMO 4 CHES$ "; 


3025 LET i$=h5 

3030 IF h$g>="" THEH LET aqg=h$ CLEN h$>2: LET h$=h6cil TO CLEM h$-1 05 
32950 GO SUB 32004: IF LEM h$28 THEN GO TO ZaZa 

ID6O PRINT " “"SiS;TADB 6;” CH) = ";d; TAB 20; <>" 

3065 IF p$="s" THEN LPRINT TAÃD S;i8;" CH) = ";d:TAB 18; Cgo>” 
s07B GO TO 3812 

3208 LET a=CODE qg$ 

321A IF a<948 OR aziB2 THEM GO SUB S380 

3220 IF a/57 AND a<6S THEN GO SUB 3300 

3225 IF as97 AND azrã THEH GO SUB 3300 

3230 IF a<=57 THEH LET q=a-48 

3240 IF a>=65 THEN LET q=a-55 

3254 IF a>=97 THEH LET q=a-57 

3260 LET d=d+qkuy: LET g=4Xt16 

3278 RETURN 


(3200 PRINT "Hum.hex crerro...tente d “: PAUSE 100: RETURN 


mn 
õ 
Õ 


SO CLS : INPUT " Em que endereco quer iniciar orou 
lgo INPUT " Insira o primeiro grupo de instrucoes “";aB 
lig FOR n=1 TO LEH ag 
115 IF ag = "" THEN GOTO 100 
113 IF ab="t" THEN STOP 
128 LET b$=a$. 1 TO 25 
1380 GO SUB SAB 
idgy POKE x,d 

' jà PRINT x, PEEK x 

LET wu==+1 

LET ag=agis TO 3 

HEAZT mn 

Go TO 104 

LET d=B8: LET u=1 

FOR m=i TO & 

LET d$E=bSCLEH E$2: LET b$=bé&ci TO cLEM bé-1 0 


VOSSAS 


Dom E Cu PO rs AD OD IT 
1X, 


vd O) Co do id O) CO) ro té pa pa 


& LET a=CODE dg 

à IF as=57 THEM LET q=a-4g 

& IF a;=55 THEM LET q=a-S5 

& IF az=97 THEM LET qua-gr 

à LET d=d+atu: IF 4<16 THEM LET u=urieE 
à NEXT m 

à RETURM 


(Continua no próximo número) 


NOVOS PERIFÉRICOS PARA O SPECTRUM 


A Firma COMPEC — Rua Santa Catarina, 715, Centro Comercial Rio (Loja O) — Telef. 314506 — 4000 PORTO, possui para 


entrega imediata o novo 
AMPLIFICADOR DE SOM PARA O SPECTRUM 


PREÇO: 3 000$00 
Terá também, a partir de 10 de Novembro próximo, os 


JOYSTICKS 
PREÇO: 6 000$00 


Aceitam encomendas desde que sinalizadas previamente com 30 % e remetem os JOYSTICKS e o AMPLIFICADOR DE SOM para 
qualquer ponto do país. 














CLUBE Zso 


SIMULAÇÃO - EXECUTADA NO COMPUTADOR 


“PARTE | / OUT. 83 

A simulação é um instrumento de análise poderoso, 
que pode ser usado pelo nosso computador, de modo 
a que possam ser experimentadas diferentes soluções 
para problemas de difícil resolução, ou que, somente 
com a simulação, permitirão arranjar solução (ou 
obter uma visão da solução possível). 

A melhor forma de ter uma aproximação à simu- 
lação é começar com um exemplo concreto. 

Vamos assumir a posse de um SNACK-BAR. Ao 
balcão existe uma pessoa, mas estamos a pensar em 
admitir uma segunda pessoa! 

O NOSSO PROBLEMA É O SEGUINTE: ... SERÁ 
COMPENSADOR ADMITIR A SEGUNDA PESSOA? 

Para proceder à análise do problema, recolhemos 
alguns dados. 

O número de clientes, varia bastante com a hora do 
dia. O mês passado, preparamos um quadro de en- 
tradas dos clientes, que nos forneceu a seguinte 


panorâmica: 

HORAS N.º CLIENTES 
7/ 8 30 
8/ 9 15 
9/10 6 
10/11 3 
11/12 8 

12/13 25 
13/14 9 
14/15 8 
15/16 12 
16/17 12 
17/18 35 
18/19 22 


NÓS OBSERVÁMOS QUE ESTÁVAMOS A PAGAR 
UMA PENALIZAÇÃO, PELO FACTO DE NÃO 
TERMOS UM SEGUNDO EMPREGADO AO BALCÃO. 


Nos casos em que o cliente teria de esperar muito 
tempo para ser atendido, ele sairia para procurar ou- 
tro snack-bar. 

Observámos ainda que, em média, as pessoas que 
entravam no bar ficavam ou saíam, em função do 
número de pessoas que estavam a ser servidas ao 
balcão. 

RESULTADOS DAS NOSSAS OBSERVAÇÕES : 


N.º pessoas % Entra % Entra 
ao balcão e fica e sai 
0 0 0 
1-3 15 3 
4- 6 25 15 
7-10 60 so 
11-15 80 50 


O tempo médio que uma pessoa espera para ser 
atendida é de 4 minutos e a despesa média de Esc. 
57850. 

O salário semanal do novo empregado será de 
2 000800. Assumindo que o novo vendedor trabalha 


continuamente enquanto o bar está aberto, qual a 


decisão que devo tomar? 
Este problema é típico na área dos assuntos 


comerciais e industriais. Caracteriza-se pelos dados 
acumulados a partir de observações e acontecimentos 
imprevisíveis (a que horas vai chegar um cliente?; irá 
o cliente impacientar-se pela demora e sair?). 

Uma das técnicas que nos irá ajudar a tomar a 
decisão é a de deixar que o nosso computador «imi- 
te» o snack-bar; deixá-lo «jogar», ou seja, «gerar 
clientes» em tempos aleatórios. 

Estes clientes entram no bar e, na base do número 
de pessoas que ali estiverem, decidirão ficar ou sair. 

O computador segue todos os dados, calcula os 
lucros e as perdas. lrá simular toda a actividade de 


um dia e apresentará os resultados correspondentes. > 


Mas, atenção! O computador pode gerar dados 
para um dia «não típico». 

Estes clientes entram no bar na base do habitual, 
ou seja, decidem se ficam para ser atendidos ou, pelo 
contrário, podem ir procurar outro local. O computador 
levará todos estes valores em conta mas, devido ao 
facto de os dados serem aleatórios, o programa irá 
funcionar para vários dias simulados e obter o resulta- 
do médio. 

Em seguida, iremos ver algumas ideias sob o ponto 
de vista da matemática. Especificamente, iremos 
repensar algumas noções sobre «como consegue O 
computador imitar um acontecimento imprevisível?». 

Considere-se, por exemplo, o cliente que entra e 
encontra quatro pessoas a ocupar o balcão. De acor- 
do com a tabela anteriormente criada, o cliente ocupa 
25 % do tempo na fase de ser atendido e 75 % do 
tempo será ocupado ao balcão a comer ou beber. 
Como obter do computador o mesmo tipo de decisão, 
como se fosse o cliente? 

O método mais fácil é usar o gerador de números 
aleatórios. Faça um apelo a RND, que é a forma de 
obter um número aleatório entre O (incluído) e 1 
(excluído). Sabendo isto, nós queremos usar a ideia 
de que, conhecendo o instante em que o valor é RND 
é superior a 25 %, então isso será equivalente ao 
facto de que o cliente entrou e ficou ao balcão. Em 
todas as outras vezes, será equivalente ao caso de 


um cliente que entrou e saiu de novo. 
1 


FORD PN 


es 
E EE quonves equivale a cliente que 
entra e sal 
É Doo O) avisar equivale a cliente que 
entra e fica 


(Continua no próximo número) 


e. 


NOVOS PROGRAMAS PARA O SPECTRUM |. 





€ EDUCAÇÃO: em português 


LÓGICA: TEXTO AUXILIAR DA LÓGICA MATEMÁTICA 


TRANSFORMAÇÕES GEOMÉTRICAS: Contém 4 subprogramas; Translação; Rotação; Simetria; Homotetia 


ESTES PROGRAMAS ESTÃO DE ACORDO COM O PROGRAMA DE ENSINO OFICIAL DA MATEMÁTICA. 


€ AVENTURAS: em inglês 


FEUDAL OVERLORD: o jogador simula a posse de uma terra e a sua administração de acordo com as 
regras do feudalismo. 


SMUGGLERS COVE: história de piratas. 
DEVILS OF THE DEEP: terá como missão explorar a cidade perdida da ATLÂNTIDA. 
TRAIN: será o chefe de operações do tráfego ferroviário. 


HEATHROW — AIR TRAFIC CONTROL: irá controlar o tráfego aéreo no aeroporto de HEATHROW. 


6 JOGOS 


POOL — (BUG BYTE) jogo de bilhar para 16k ou 48k. 
POOL — (CDS) jogo de snooker (bilhar) 16k ou 48k 


O ASTROLOGIA 


STARGAZER SECRETS: A partir da data de nascimento faz o traçado da carta astrológica e análise do 
caracter (em inglês). 


(Está todo em BASIC e pode ser traduzido ou adaptado para português). 


UTILITÁRIOS 


48 K MELBOURNE DRAW: Para criar gráficos; reduzir ou aumentar imagens; examinar secções do ecran; 
gravar figuras em cassete; criar e definir UGDS. 


SOFKIT: renumeração: eliminar grupos de linhas; passar de minúsculas para maiúsculas ou vice-versa; 
pesquisa de qualquer caracter, frase ou num. ou instrução; trace. 


DEVPAC: ASSEMBLER/EDITOR DISASSEMBLER 


LINGUAGENS 
PASCAL (4T DA HISOFT... NOVA VERSÃO) 


preços previstos: 
jogos, aventuras e astrologia (300800) 
educacional (600800) 
utilitários (1 000800... Melb. draw) 
( 600800... Sofkit e Devpac) 
Linguagens (1 200800) 


O desconto de 20 % continua a ser válido para os sócios do clube. 





CLUBE JZs 


INSCRIÇÃO COMO ASSOCIADO 








O CLUBE Zso está aberto a todos os utilizadores de microcomputadores. 
A intenção de associar os entusiastas das micro-máquinas, é exclusivamente a de permitir: 


1 — PUBLICAÇÃO DE UM JORNAL MENSAL, onde sejam publicados programas de uso geral ou específico 
como no caso da educação. 


2 — PROMOVER TROCAS DE PROGRAMAS, e trocas de experiências; tanto no caso do Software (programa- 
ção), como no caso do Hardware (electrónica). 


3 — PROMOVER DESCONTOS NA AQUISIÇÃO DE PROGRAMAS. 


4 — LANÇAR CURSOS DE PROGRAMAÇÃO EM BASIC — PASCAL OU OUTRAS LINGUAGENS E DIVULGAR 
O USO DE LINGUAGEM MÁQUINA. 


Te E. E 

IDADE COMER TIPO comemos o ça 

PROBISSÃO are iii in a iii ren spnes 

(T ENDEREÇO ... aeee 

ra ee ia mem riso + 
ASSINATURA ANUAL — Esc. 1500800 01 


ASSINATURA SEMESTRAL -— Esc. 750800 [)] 


CHEQUE OU VALE DO CORREIO 


JÁ SÓCIO E 
NOVO SÓCIO D <> à partir do mês dO aiii red (inclusive) 








